AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 


| 
LLLLLLLLLLLLLLL | 
| 
| 


— 


} 
i 


ef ILE®*1D**HANDLER 
| 
j 
| 
HH HH  AAAAAA NN NN DDDDDDDD = LL EEEEEEEEEE RRRRRRRR 
HH HH AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE RRRRRRRR 
HH HH AA AA NN NN DD DD LL EE RR RR 
HH HH AA AA NN NN DD DD LL EE RR RR 
HH HH AA AA NNNN NN DD DD LL EE Re RR 
HH HH AA AA NNNN NN DD DD LL EE RR RR 
HHHHHHHHHH = AA AA NN NN NN DD DD LL EEEEEEEE § RRRRRRRR 
HHHHHHHHHH = AA AA NN NN NN DD DD LL EEEEEEEE = RRRRRRRR 
HH HH A NN NNNN DD DD iL EE RR RR 
HH HH AAAAAAAAAA NN  NNNN DD DD LL EE RR RR 
HH HH AA AA NN NN DD DD LL EE RR ~—RR = 
HH HH AA AA NN NN DD DD LL EE RR ~—RR bate 
HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE RR RR vous 
HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE RR RR atte 
LL HII SSSSSSSS 
LL eeees SSSSSSSS 
LL I] SS 
LL I] SS 
LL 1] SS 
LL I] SS 
LL 1] SSSSSS 
LL il SSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SS 
LLLLLLLLLL JIIIII = SSSSSSSS 
LLLLLLLLLL §=—sSTIII© «= SSSSSSSS 


= 


MAI 
Tab 


te 


3 


ANDLER 
of contents 


Dare 


= CONDITION HANDLER 


S 
ANDLER 


A ee eee 


[ 
J 1 

MAILSHANDLER = CONDITION HANDLER 16-SEP-1984 00:46:29 YAX/VMS Macro V04-00 Pa 1 
| v04=000 ~$Eb>| 582 9338523 EMAIL. SRC HANDLER.MAR; 1 as (1 


TITLE MAILSHANDLER - CONDITION HANDLER 
-IDENT ‘'V04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF ICENSE AND WITH THE 
INCLUSION OF THE ABOVE Sgt dtd NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Phocechecoe NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CHRPORET ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: VAX/VMS MAIL UTILITY 
ABSTRACT: CONDITION HANDLER 


; ENVIRONMENT: NATIVE/USER MODE 
; AUTHOR: LEN KAWELL, CREATION DATE: 2-FEB-79 
; MODIFICATION HISTORY: 


; v03-003 BLS0288 Benn Schreiber 21-MAR-1984 
: Drop privs before putmsg if they are raised. 
: v03-002 BLS0255 Benn Schreiber 28-Dec-1983 


Check inhib_msg before signalling, set it on the way out. 
f signal is accvio, resignal to get full argument dump. 


v03-001 BLS0177 Benn Schreiber 24-Jun-1982 
Remove global invocation of $SHRMSG. Remove invocation of 
SMAILMSGDEF 
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MAILSHANDLER = CONDITION HANDLER 16-SEP-1984 00:46:29 VAX/VMS Macro Vv04-00 
/ v04=000 DECLARATIONS -SEP-1984 968289 EMAIL SRC HANDLER.MAR; 1 

6° ; -SBTTL DECLARATIONS 

00 5 ; INCLUDE FILES: 

00 § ; 
4 

00 8 ; 
000 9 ; EQUATED SYMBOLS: 
B05 60 ; 
00 61 MALFDEF sMAIL CONTROL FLAGS 
0000 6¢ SCHFDEF ; CONDITION HANDLER DEFINITIONS 
0000 97 SSTSDEF : STATUS CODE DEFINTIONS 

65 ; 

$8 ¢ ; LOCAL MACROS: 

000 67 ; 
44 $8 
0000 69 ; 
0000 70 ; OWN STORAGE: 
0000 713; 
0000 3 

00000000 7 -PSECT $CODE$,NOWRT,EXE 

0000 74 
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_ MAILSHANDLER = CONDITION HANDLER 16-SEP-1984 00:46:29 VAX/VMS Macro V04-00 P 
/v04=000 CONDITION HANDLER Been 1586 O1:sbse1 EMAIL SRCINANDLER MAR: 1 aor) 
$ bse «SBTTL CONDITION HANDLER 
| £8 ; FUNCTIONAL DESCRIPTION: 
0 : OUTPUTS ERROR MESSAGE USING SYSSPUTMSG 
° ; + CALLING SEQUENCE: 
33 CALLED BY AN EXCEPTION OR LIBSSIGNAL 
| 09 5 : INPUT PARAMETERS: 
0 $ ; STANDARD CONDITION HANDLER ARGUMENTS 
| 09 8 : IMPLICIT INPUTS: 
Bah 3 : NONE 
0900 91 : OUTPUT PARAMETERS: 
0008 3 : NONE 
$000 94 ; IMPLICIT OUTPUTS: 
000098 | — 
0000 97 : COMPLETION CODES: 
$000 98. oe 
0000 100 ; SIDE EFFECTS: 
0000 101: ERROR MESSAGE OUTPUT 
ae 
003c 0000 104° .ENTRY MAILSHANDLE,- :CONDITION HANDLER 
0002 105 “M<R2,R3,R4,R5> > (ENTRY MASK) 
55 00000000'EF ~ $09 198 sates Moneta tte Tal ache ae cecamal te 
52. 04 AC 00 0008 108 MOVL §CHESL_SIGARGLST(AP).R2 ;GET ADDR OF CONDITION ARRAY 
000F 110 t IF NETWORK JOB, SEND SIGNALLED STATUS VALUE TO OUR MASTER 
18 55 €9 O00F 118 ; BLBC =—R5, 408 :BR IF NOT NETWORK JOB 
04 A2 OF 0012 113 PUSHAL CHF SL_S1G_NAME(R2) SCREATE STATUS VALUE DESC 
; 6E OOF 0017 115 PUSHAL (SP) [SEND THE STATUS VALUE 
00000000"EF gi FB 0019 116 CALLS #1 .MAILSPUT_OUTPUT iT0 MASTER MAIL JOB 
0098 +4«31—«00 3 118 ios BRW EXiT TELSE - EXIT WITH FAILURE STATUS 
10 04 A 69 60 6 120 BLBC  CHFSL_SIG_NAME(R2),PUT_MESSAGE ;IF ERROR, OUTPUT ERROR MESSAGE 
006 1 99 A 121 BRW CONTIN “ELSE = JUST CONTINU 
00000000'8F 04 A2 D1 00 p 1 é 40$:  CMPL  CHFSL_SIG_NAME(R2) ,#SS$_ACCVIO ; INTERACTIVE ACCVIO? 
0 12 00 1 BNEQ PUT_MESSAGE :1F NEQ NO, GO SIGNAL 
0081 31 00 i 4 BRW RESTGNAL TYES, GET FULL DUMP 
° A $ : OUTPUT THE ERROR MESSAGE 
4 8 PUT_MESSAGE : : 
C EO .o 2 BBS #STS$V_INHIB_MSG, CHFSL_SIG_NAME(R2), CONTINUE 
-? Ss F 130 SUBW #2,CHFSL SIG ARGS(R2) ~ ;DON'T PASS PC & PSL 
f rp 42 131 MOVQ §MAIL$Q_ENHANTED_PRIVS,.R3 ;SEE IF PRIVS RAISED 
yy 49 = 132 BEQL 10% :BRANCH IF NOT 
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_MAILSHANDLER = CONDITION HANDLER 16-SEP-1984 00:46:29 VAX/VMS Macro V04-00 
oo CONDITION HANDLER ae 4 89:38:25 MAIL. SRCJHANDLER.MAR; 1 
Q00000000'EF 00 FB 0048 133 CALLS  #0,MAILSDOWN_PRIV sYES, DROP THEM 
3 134 108 SPUTMSG_S MSGVEC=(R2J,- ;OUTPUT THE MESSAGE (S) 
135 ACTRTN=ACTION_ROUTINE ; 
50 DD 6 1 6 PUSH RO ZSAVE STATUS 
50 54 9 1 BISL3 R3,R4,RO 7SEE IF PRIVS WERE RAISED 
OA 13 0068 1 8 BEQL 206 tI1F 
7E 7D 960 1 OV R3,-(SP) SYES=-RESTORE THEM 
00000000 EF g FB 00 9 140 CALLS #2,MAILSUP_PRIV 
BEDO 07 141 208: POP R ZRESTORE PUTMSG STATUS 
4450 €9 O7A 168 BLBC ~—— RO, EXIT :BR IF FAILURE 
f43 133 ; IF NETWORK JOB, SEND END OF MESSAGES FLAG 
07D 146 END_OF_MESS: :SEND END OF MESSAGES FLAG 
OF 55 €9 O007D 14 BLBC RS, CONTINUE :BR IF NOT A NETWORK JOB 
00 dD 9080 148 PUSHL #0 TEND OF MESSAGES FLAG 
5E DD 0082 149 PUSHL SP SCREATE FLAG DESC 
01 DD 0084 150 PUSHL #1 : 
6— 7F 0086 151 PUSHAQ (SP) ‘SEND THE FLAG 
00000000'EF 01 FB 0088 13¢ ALLS #1,MAILSPUT_OUTPUT [TO MASTER MAIL JOB 
Baee 133 3; CONTINUE IF CONDITION WASN'T SEVERE ERROR 
008F 156 CONTINUE: sCONTINUE IF POSSIBLE 
00000000'8F 04 a2 D1 008F 157 CMPL § CHFSL_SIG_NAME(R2),#SS$_ACCVIO ;WAS IT AN ACCVIO? 
22 13 0097 158 BEQL RESIGRAL 
52 04 AC 00 0099 159 MOVL  CHFSL_SIGARGLST(AP),R2 ;GET ADDR OF CONDITION ARRAY AGAIN 
| 51 O08 AC DO 009D 160 MOVL.  CHFSLMCHARGLST(AP).R1 :GET ADDR OF MECHANISM ARRAY 
10000000 8F C9 OOAl 161 BISL3 #STS$A_INHIB MSG,- [GET STATUS AND INHIBIT MESSAGE 
50 04 A2 00A7 162 CHF$L_SIG_NAME(R2).RO : 
OC Al 5 DO OOAA 16 OVL RO,CHFSL_ACH_SAVRO(R1) ;SET IN RETURN RO 
00 ED OOAE 164 CMPZV - #STSS$V_SEVERTTY,- :WAS THIS A SEVERE ERROR? 
04 50 03 0080 165 #STS$S_SEVERITY,RO,#STSSK_SEVERE 
0C 13 0083 166 EQLU EXIT :TF SO - EXIT 
50 0000°8F 3C 0085 167 MOVZWL #SS$_CONTINUE,RO ‘SET STATUS 
04 OOBA 168 ET 
00BB 169 
00BB 170 RESIGNAL: 
50 0000'°8F 3¢ 00BB 171 MOVZWL #SS$_RESIGNAL,RO 
04 00C0 1% RET 
00C1 173; 
90¢1 174 : EXIT WITH STATUS 
0C1 175: 
9oct 176 EXIT: ZEXIT IMAGE 
0¢1 177 SEXIT_S RO : 
OOCA 178 
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ITION HANDLER 16-SEP-1984 00:46:29 VAX/VMS Macro V04-00 
ION HANDLER mies 80:38:25 EMAIL SRC HANDLER.MAR; 1 
OCA 180 ;++ 

OCA 1; ACTION.ROUTINE = SYSSPUTMSG ACTION ROUTINE 

OCA 1 : : THIS ROUTINE IS CALLED TO PUT AN ERROR MESSAGE TO SYS$OUTPUT. 
OCA , ; USING THIS ROUTINE FORCES ALL OUTPUT THROUGH MAILS$PUT_OUTPUT. 
OCA : : INPUTS: 

Och 8 : 4(AP) = ADDRESS OF MESSAGE DESCRIPTOR 

OCA 190 : OUTPUTS; 
Bpea 191 ; 

OCA 198 : MESSAGE OUTPUT TO OUTPUT FILE. 
QOOCA 193; 
O0CA 194 :-= 
OCA 195 ACTION_ROUTINE: : SYSSPUTHSG ACTION ROUTINE 

CA 196 “WORD 0 (ENTRY MASK) 

Occ 19 CALLG (AP),MAILSPUT_OUTPUT 

O03 198 BLBC RO, EXIT BR IF URE 

0D6 199 BC #MAIF_V_NETJOB,MAILSGL_FLAGS, 10S. I IF NOT NET JOB 
OODE 00 rahe CALLG (AP),G*CIBSPUT_OUTPUT ~ ;PUT MESSAGE IN LOG FILE TOO 
00E5 0¢ ee ot :DON'T OUTPUT ANYTHING 
00E7 20 RET ; 
OOEB 204 
O0E8 205 END 
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: = CONDITION HANDLER -1984 90:56:09 ote Macro V04-00 Page 
Psect synopsis 1984 01:50:41 


MAIL.SRCJHANDLER.MAR; 1 


PSECT name Allocation PSECT No. Attributes 

» 8% 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 00000000 <( 0.) O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

SCODES QOOOO00E8 ¢ 232.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
t$ewmmoroenr ee on cne eames aa wan + 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:00.06 00:00:02.40 

Command processing 111 00:00:00.46 00:00:04.30 

Pass 144 00:00:01.09 00:00:10.97 

Symbol table sort 0 00:00:00.06 00:00:00.06 

Pass 2 52 00:00:00.34 00:00:01.68 

Symbol table output 8 00:00:00.04 00:00:00.04 

Psect synopsis output 2 00:00:00.02 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 354 00:00:02.07 00:00:19.48 

The working set Limit was 1200 pages. 


7421 bytes (15 pages) of virtua 


memory were used to buffer the intermediate code. 
There were 1 


pages of symbol table space allocated to hold 106 non-local and 5 local symbols. 
205 source Lines were read in Pass 1, producing 16 object records in Pass 2. 
14 pages of virtual memory were used to define 12 macros. 


pessoa ee eee ree ene meme em me wee + 


! Macro Library statistics H 
$eeoeeeeeeeeeeeoeccescescec= 


Macros defined 


Macro Library name 


-$255$DUA28: (MAIL .OBJJMAILMAC MLB; 1 1 
_$255$D0UA28:CSYS.OBJJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB;2 8 
TOTALS (all Libraries) 9 
173 GETS were required to define 9 macros. 

There were no errors, warnings or information messages. 
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